home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / err_func.arc / TEST_ERR.PAS < prev   
Pascal/Delphi Source File  |  1990-09-16  |  641b  |  25 lines
  1. Program Test_Error;
  2.  
  3. {$D+,L+}
  4. (*      Test for ERR_FUNC Run time Error trapping Unit
  5.         Released into the Public Domain, and entered
  6.         into the Great PASCAL echo contest :-)
  7.  
  8.         Author Richard A. Morris
  9.                Fido 3:640/378
  10.  
  11.         Important for maximum effectiveness compile
  12.         your suspect programs in the Debug/Standalone
  13.         debugging/On and O/L/Map File/Detailed Status.
  14. *)
  15. uses err_func;
  16.  
  17. VAR F : FILE;
  18.  
  19. begin
  20.      Exit_Msg := 'TEST_ERR: File not found';
  21.      Assign(F,'ERR_FUNC.DAT');
  22.      Reset(F);     {O.K. let's open a non existant file for writing}
  23.  
  24.      Close(F);
  25. end.